#!/usr/bin/perl -w

@array = <>;
foreach (@array) {
if (/(\S)\1/) {
   print "$_";
   }
}
